function S = dctcoef(Img)
%DCTCOEF  spocita soucet absolutnich hodnot koeficientu DCT
%         umoznuje porovnat, jak jsou jednotlive koeficiety dulezite
S = zeros(8,8);
for x = 1:8:(size(Img,2) - 7)
    for y = 1:8:(size(Img,1) - 7)
        S = S + abs(blockdct(Img,x,y));
    end
end